10 GOSUB 1500
15 POKE 198,0
20 GETY$
30 IFY$="Y"THEN 60
40 IFY$="N"THEN420
50 GOTO20
60 PRINT"[147]    [209][213][197][211][212][201][207][206] [205][193][203][197][210] IS FOR USE WITH"
70 PRINT"[195][207][205][208][213][212][197][210] [211][209][213][193][210][197][211].  [215]ITH IT YOU CAN MAKE"
80 PRINT"YOUR OWN QUESTIONS FOR USE IN THAT GAME."
100 PRINT"    [217]OU CAN EITHER WRITE NEW QUESTIONS"
110 PRINT"OR EDIT EXISTING ONES.":POKE198,0
120 PRINT"[158]       [208]RESS [211][208][193][195][197][194][193][210] TO CONTINUE"
130 GETS$:IFS$<>" "THEN130
140 PRINT"[147]    [212]O WRITE NEW QUESTIONS, SELECT '[215]'"
150 PRINT"AT THE MAIN PROMPT.  [217]OU WILL THEN BE"
160 PRINT"ASKED TO TYPE IN: 50 QUESTIONS, 50"
170 PRINT"RIGHT ANSWERS, 50 WRONG ANSWERS AND 50"
180 PRINT"FUNNY WRONG ANSWERS.  [212]HE LAST ONE IS"
190 PRINT"OPTIONAL.  [201]F YOU DON'T WANT TO PUT IN
200 [153]"ANYTHING FUNNY YOU SHOULD JUST PRESS
210 PRINT"RETURN ON A BLANK LINE.  [193]LL OTHER
220 [153]"QUESTIONS MUST BE ANSWERED."
240 [153]"    (null)HE QUESTIONS THAT YOU MAKE CAN BE"
250 [153]"UP TO 2 LINE LENGTHS LONG.  ATNNYTHING"
260 [153]"ELSE CAN ONLY BE 1 LINE LENGTH LONG."
270 [153]"(null)HEN YOU ARE DONE YOU ARE GIVEN THE"
280 [153]"OPTION TO REVIEW YOUR ENTRIES AND THEN"
290 [153]"YOU WILL SELECT A FILE NAME TO SAVE"
300 [153]"THEM UNDER.":[151]198,0
310 [153]"SYS      (null)RESS (null)(null)ATNLENVALPEEKATN(null) TO CONTINUE"
320 [161]S$:[139]S$[179][177]" "[167]320
330 [153]"LOAD    (null)O EDIT EXISTING QUESTIONS, ENTER"
340 [153]"'VAL' AT THE MAIN PROMPT.  (null)OU WILL THEN
350 PRINT"ENTER THE FILE NAME OF THE QUESTIONS YOU";
360 PRINT"WANT TO EDIT.  [197]ACH QUESTION, ANSWER,
370 [153]"ETC., IS SHOWN IN TURN AND YOU ARE GIVEN";
380 [153]"THE CHANCE TO CHANGE IT.
400 PRINT"    [208][204][197][193][211][197] [206][207][212][197] - [215]HEN YOU GET TO [198][213][206][206][217]"
401 PRINT"[215][210][207][206][199] [193][206][211][215][197][210][211], IF WHEN YOU WROTE THE"
402 PRINT"FILE YOU LEFT THIS BLANK A PLUS SIGN"
403 PRINT"(+) WILL SHOW UP HERE. [212]HIS IS NORMAL"
404 PRINT"JUST LEAVE IT ALONE UNLESS YOU WANT"
405 PRINT"TO PUT SOMETHING HERE.":POKE198,0
410 PRINT"[158]        [208]RESS [211][208][193][195][197][194][193][210] TO START"
411 GETS$:IFS$<>" "THEN411
420 DIMA$(200):PRINT"";
430 PRINT"[147]"TAB(13)"[209]UESTION [205]AKER"
440 PRINT" [196]O YOU WANT TO:":PRINT"  [197][155]DIT OR REVIEW A FILE":QW=0
450 PRINT"  [215][155]RITE A NEW FILE":PRINT"  [198]8[155]-[197]XIT [209]UESTION [205]AKER"
460 PRINT"          [197]NTER [158][197],[158] [215] OR [158][198]8       ":POKE198,0
470 GETA$:IFA$=""THEN470
480 IFA$="E"THENQW=1:GOTO1020
490 IFA$="[140]"THENSYS 8*4096+4
495 IF A$<>"W" THEN 470
500 AA=0
510 FORA=1TO50
520 PRINT"[147][155][209]UESTION "A:PRINT:PRINT
530 B$="":PRINT"[215]HAT IS THE QUESTION?":PRINT">";:GOSUB2000:B$=T$:IFB$=""THEN530
540 A$(AA)=B$:AA=AA+1:PRINT
550 B$="":PRINT"[158][215]HAT IS THE CORRECT ANSWER?":PRINT">";:GOSUB2000:B$=T$:IFB$=""THEN550
560 A$(AA)=B$:AA=AA+1:PRINT
570 B$="":PRINT"[215]HAT IS A WRONG ANSWER?":PRINT">";:GOSUB2000:B$=T$:IFB$=""THEN570
580 A$(AA)=B$:AA=AA+1:PRINT
590 B$="":PRINT"[158][215]HAT IS A WRONG, FUNNY ANSWER?":PRINT">";:GOSUB2000
595 B$=T$:IFB$=""THENB$="+"
600 A$(AA)=B$:AA=AA+1
610 NEXTA
620 PRINT"[147][215]OULD YOU LIKE TO REVIEW YOUR QUESTIONS"
630 PRINTTAB(10)"AND ANSWERS?  ([217]/[206])"
640 GETA$:IFA$=""THEN640
650 IFA$="N"ANDQW=1THEN430
660 IFA$="N"THEN930
670 AA=0:FORA=1TO50
680 PRINT"[147][158][209]UESTION "A:PRINT:PRINT
690 PRINT"[209]UESTION:":PRINTA$(AA)
700 PRINT:PRINT"[158][201]S THIS CORRECT? ([217]/[206])"
710 GETA$:IFA$=""THEN710
730 IFA$="N"THEN GOSUB910
740 AA=AA+1:PRINT"[195]ORRECT ANSWER:":PRINTA$(AA)
750 PRINT:PRINT"[158][201]S THIS CORRECT? ([217]/[206])"
760 GETA$:IFA$=""THEN760
770 IFA$="N"THEN GOSUB910
780 AA=AA+1:PRINT"[215]RONG ANSWER:":PRINTA$(AA)
790 PRINT:PRINT"[158][201]S THIS CORRECT? ([217]/[206])"
800 GETA$:IFA$=""THEN800
810 IFA$="N"THEN GOSUB910
820 AA=AA+1:PRINT"[198]UNNY WRONG ANSWER:":PRINTA$(AA)
830 PRINT:PRINT"[158][201]S THIS CORRECT? ([217]/[206])"
840 GETA$:IFA$=""THEN840
850 IFA$="N"THEN GOSUB910
855 IF A$<>"Y" THEN 840
860 AA=AA+1:NEXT
870 IFQW=1THENPRINT"[147][196]O YOU WANT TO RESAVE THIS FILE? ([217]/[206])":POKE198,0
880 GETA$
890 IFA$="Y"THEN930
895 IF A$<>"N" THEN 880
900 GOTO430
910 PRINT"[158][210]ETYPE THE CORRECTED FORM NOW.":PRINT">";
920 GOSUB2000:A$(AA)=T$:PRINT"[147]";:RETURN
930 PRINT"[147][208]LEASE ENTER A NAME FOR THIS FILE":PRINT">";:GOSUB 2000:B$=T$
940 IFB$=""THEN930
950 PRINT"[201]NSERT A BLANK FORMATTED DISK OR A DISK"
960 PRINT"WITH AT LEAST 20 FREE BLOCKS INTO":PRINT"YOUR DRIVE."
970 PRINT"[158]       [208]RESS [211][208][193][195][197][194][193][210] WHEN READY":POKE198,0
980 GETA$:IFA$<>" "THEN980
985 OPEN 15,8,15,"I0":GOSUB 2500
987 IF ER$>"19" THEN CLOSE 15:GOTO 985
990 OPEN2,8,7,"@0:"+B$+",S,W":GOSUB 2500
995 IF ER$>"19" THEN CLOSE 2:CLOSE 15:GOTO 985
1000 FORC=0TO200:PRINT#2,A$(C):NEXT
1010 CLOSE2:CLOSE15:GOTO430
1020 PRINT"[147]":B$=""
1030 PRINT"  [201]NSERT DISK WITH THE FILE ON IT THAT"
1040 PRINT"      YOU WANT TO REVIEW OR CHANGE"
1050 PRINT"[197]NTER FILE NAME":PRINT">";:GOSUB2000:IFT$=""THEN1050
1055 OPEN 15,8,15,"I0":GOSUB 2500
1057 IF ER$>"19" THEN CLOSE 15:GOTO 1055
1060 OPEN3,8,3,"0:"+T$:GOSUB 2500
1065 IF ER$>"19" THEN CLOSE3:CLOSE15:GOTO 1055
1070 FORB=0TO199
1080 INPUT#3,A$(B):NEXT
1090 CLOSE3:CLOSE 15:GOTO620
1500 POKE53280,0:POKE53281,6:PRINT"[147]"TAB(13)"[209]UESTION [205]AKER"
1510 PRINTTAB(5)"[198]OR USE WITH [195]OMPUTER [211]QUARES"
1520 PRINTTAB(9)"(C) 1987 [199]EORGE [196]ECKER"
1530 PRINT" [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC."
1540 PRINT"    [196]O YOU NEED INSTRUCTIONS? ([217]/[206])"
1550 RETURN
2000 T$="":PRINT"[164]";
2010 GET A$:IF A$="" THEN 2010
2020 A%=ASC(A$)
2025 IF A%=140 THEN SYS 8*4096+4
2030 IF A%=13 THEN PRINT"[157] ":RETURN
2040 IF A%=20 AND T$="" THEN 2010
2050 IF A%=20 THEN T$=LEFT$(T$,LEN(T$)-1):PRINT"[157][157]  [157][157][164]";:GOTO 2010
2060 IF A%=34 THEN 2010
2070 IF A%<32 OR A%>218 THEN 2010
2080 IF A%>90 AND A%<193 THEN 2010
2085 IF LEN(T$)=36 THEN 2010
2090 PRINT"[157] [157]"A$"[164]";
2100 T$=T$+A$
2110 GOTO 2010
2500 INPUT#15,ER$,EM$,ET$,ES$
2510 IF ER$<"20" THEN RETURN
2520 PRINT"[147] [196]ISK ERROR!: "ER$", "EM$","ET$","ES$
2530 PRINTTAB(8)"[208]RESS [210]ETURN TO CONTINUE"
2540 GET A$:IF A$<>CHR$(13) THEN 2540
2550 RETURN